home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / monito.src < prev    next >
Text File  |  1995-04-22  |  14KB  |  678 lines

  1.         ORG     $3380 
  2.  
  3.     ***DISASSEMBLER MODULE*** 
  4.  
  5. L3380   LDA     #$00 
  6.         STA     L3713 
  7.         JMP     L37F4 
  8.  
  9. L3388   BCC     L338E 
  10.         LSR     A 
  11.         LSR     A 
  12.         LSR     A 
  13.         LSR     A 
  14. L338E   AND     #$0F 
  15.         RTS 
  16. L3391   LDX     $87 
  17.         LDY     $88 
  18.         JSR     L366B 
  19.         JSR     L3454 
  20.         LDA     ($87,X) 
  21.         TAY 
  22.         LSR     A 
  23.         BCC     L33AA 
  24.         ROR     A 
  25.         BCS     L33B4 
  26.         CMP     #$A2 
  27.         BEQ     L33B4 
  28.         AND     #$87 
  29. L33AA   LSR     A 
  30.         TAX 
  31.         LDA     L346E,X 
  32.         JSR     L3388 
  33.         BNE     L33B8 
  34. L33B4   LDY     #$80 
  35.         LDA     #$00 
  36. L33B8   TAX 
  37.         LDA     L34B2,X 
  38.         STA     $82 
  39.         AND     #$03 
  40.         STA     $83 
  41.         TYA 
  42.         AND     #$8F 
  43.         TAX 
  44.         TYA 
  45.         LDY     #$03 
  46.         CPX     #$8A 
  47.         BEQ     L33D8 
  48. L33CD   LSR     A 
  49.         BCC     L33D8 
  50.         LSR     A 
  51. L33D1   LSR     A 
  52.         ORA     #$20 
  53.         DEY 
  54.         BNE     L33D1 
  55.         INY 
  56. L33D8   DEY 
  57.         BNE     L33CD 
  58.         RTS 
  59. L33DC   JSR     L3391 
  60.         PHA 
  61. L33E0   LDA     ($87),Y 
  62.         JSR     L36AF 
  63.         LDX     #$01 
  64. L33E7   JSR     L3456 
  65.         CPY     $83 
  66.         INY 
  67.         BCC     L33E0 
  68.         LDX     #$03 
  69.         CPY     #$04 
  70.         BCC     L33E7 
  71.         PLA 
  72.         TAY 
  73.         LDA     L34CC,Y 
  74.         STA     $80 
  75.         LDA     L350C,Y 
  76.         STA     $81 
  77. L3401   LDA     #$00 
  78.         LDY     #$05 
  79. L3405   ASL     $81 
  80.         ROL     $80 
  81.         ROL     A 
  82.         DEY 
  83.         BNE     L3405 
  84.         ADC     #$3F 
  85.         JSR     L36C2 
  86.         DEX 
  87.         BNE     L3401 
  88.         JSR     L3454 
  89.         LDY     $83 
  90.         LDX     #$06 
  91. L341C   CPX     #$03 
  92.         BEQ     L343C 
  93. L3420   ASL     $82 
  94.         BCC     L3432 
  95.         LDA     L34BF,X 
  96.         JSR     L36C2 
  97.         LDA     L34C5,X 
  98.         BEQ     L3432 
  99.         JSR     L36C2 
  100. L3432   DEX 
  101.         BNE     L341C 
  102.         RTS 
  103. L3436   DEY 
  104.         BMI     L3420 
  105.         JSR     L36AF 
  106. L343C   LDA     $82 
  107.         CMP     #$E8 
  108.         LDA     ($87),Y 
  109.         BCC     L3436 
  110.         JSR     L3462 
  111.         TAX 
  112.         INX 
  113.         BNE     L344C 
  114.         INY 
  115. L344C   TYA 
  116.         JSR     L36AF 
  117.         TXA 
  118.         JMP     L36AF 
  119. L3454   LDX     #$03 
  120. L3456   LDA     #$20 
  121.         JSR     L36C2 
  122.         DEX 
  123.         BNE     L3456 
  124.         RTS 
  125. L345F   SEC 
  126. L3460   LDA     $83 
  127. L3462   LDY     $88 
  128.         TAX 
  129.         BPL     L3468 
  130.         DEY 
  131. L3468   ADC     $87 
  132.         BCC     L346D 
  133.         INY 
  134. L346D   RTS 
  135.  
  136.  
  137. L346E   DB      $4,$20,$54 
  138.         DB      $30,$D 
  139.         DB      $80,$4,$90 
  140.         DB      $3,$22 
  141.         DB      $54,$33,$D 
  142.         DB      $80,$4 
  143.         DB      $90,$4,$20 
  144.         DB      $54,$33 
  145.         DB      $D,$80,$4 
  146.         DB      $90,$4 
  147.         DB      $20,$54,$3B 
  148.         DB      $D,$80 
  149.         DB      $4,$90,$0 
  150.         DB      $22,$44 
  151.         DB      $33,$D,$C8 
  152.         DB      $44,$0 
  153.         DB      $11,$22,$44 
  154.         DB      $33,$D 
  155.         DB      $C8,$44,$A9 
  156.         DB      $1,$22 
  157.         DB      $44,$33,$D 
  158.         DB      $80,$4 
  159.         DB      $90,$1,$22 
  160.         DB      $44,$33 
  161.         DB      $D,$80,$4 
  162.         DB      $90 
  163.         DB      $26,$31,$87 
  164.         DB      $9A 
  165.  
  166. L34B2   DB      $00 
  167.         DB      $21 
  168.         DB      $81 
  169.         DB      $82 
  170.         DB      $00 
  171.         DB      $00 
  172.         DB      $59 
  173.         DB      $4D 
  174.         DB      $91 
  175.         DB      $92 
  176.         DB      $86 
  177.         DB      $4A 
  178.         DB      $85 
  179.         DB      $9D 
  180.  
  181. L34C0   DB      ',),#($' 
  182. L34C6   DB      'Y',0,'X$$',0 
  183.  
  184. L34CC   DB      $1C,$8A,$1C 
  185.         DB      $23,$5D,$8B 
  186.         DB      $1B,$A1,$9D 
  187.         DB      $8A,$1D,$23 
  188.         DB      $9D,$8B,$1D 
  189.         DB      $A1,$0,$29 
  190.         DB      $19,$AE,$69 
  191.         DB      $A8,$19,$23 
  192.         DB      $24,$53,$1B 
  193.         DB      $23,$24,$53 
  194.         DB      $19,$A1 
  195.         DB      $0,$1A,$5B 
  196.         DB      $5B,$A5,$69 
  197.         DB      $24,$24 
  198.         DB      $AE,$AE,$A8 
  199.         DB      $AD,$29,$0 
  200.         DB      $7C,$0 
  201.         DB      $15,$9C,$6D 
  202.         DB      $9C,$A5,$69 
  203.         DB      $29,$53 
  204.         DB      $84,$13,$34 
  205.         DB      $11,$A5,$69 
  206.         DB      $23,$A0 
  207.  
  208. L350C   DB      $D8,$62,$5A 
  209.         DB      $48,$26,$62 
  210.         DB      $94,$88,$54 
  211.         DB      $44,$C8,$54 
  212.         DB      $68,$44,$E8 
  213.         DB      $94,$0,$B4 
  214.         DB      $8,$84,$74 
  215.         DB      $B4,$28,$6E 
  216.         DB      $74,$F4,$CC 
  217.         DB      $4A,$72,$F2 
  218.         DB      $A4,$8A 
  219.         DB      $0,$AA,$A2 
  220.         DB      $A2,$74,$74 
  221.         DB      $74,$72 
  222.         DB      $44,$68,$B2 
  223.         DB      $32,$B2,$0 
  224.         DB      $22,$0 
  225.         DB      $1A,$1A,$26 
  226.         DB      $26,$72,$72 
  227.         DB      $88,$C8 
  228.         DB      $C4,$CA,$26 
  229.         DB      $48,$44,$44 
  230.         DB      $A2,$C8 
  231.         DB      $FF,$FF,$FF 
  232.  
  233.    ***TRACER MODULE*** 
  234.  
  235.  
  236. L354F   JSR     L33DC 
  237.         PLA 
  238.         STA     $80 
  239.         PLA 
  240.         STA     $81 
  241.         LDX     #$08 
  242. L355A   LDA     L361C,X 
  243.         STA     $8A,X 
  244.         DEX 
  245.         BNE     L355A 
  246.         LDA     ($87,X) 
  247.         BEQ     L35A8 
  248.         LDY     $83 
  249.         CMP     #$20 
  250.         BEQ     L35C5 
  251.         CMP     #$60 
  252.         BEQ     L35B5 
  253.         CMP     #$4C 
  254.         BEQ     L35D0 
  255.         CMP     #$6C 
  256.         BEQ     L35D1 
  257.         CMP     #$40 
  258.         BEQ     L35B1 
  259.         AND     #$1F 
  260.         EOR     #$14 
  261.         CMP     #$04 
  262.         BEQ     L3586 
  263. L3584   LDA     ($87),Y 
  264. L3586   STA     $8A,Y 
  265.         DEY 
  266.         BPL     L3584 
  267.         JSR     L3794 
  268.         JMP     $8A 
  269.         STA     $94 
  270.         PLA 
  271.         PHA 
  272.         ASL     A 
  273.         ASL     A 
  274.         ASL     A 
  275.         BMI     L359E 
  276.         JMP     L37F4 
  277. L359E   PLP 
  278.         JSR     L37A1 
  279.         PLA 
  280.         STA     $87 
  281.         PLA 
  282.         STA     $88 
  283. L35A8   JSR     L3391 
  284.         JSR     L35E6 
  285.         JMP     L37F4 
  286. L35B1   CLC 
  287.         PLA 
  288.         STA     $97 
  289. L35B5   PLA 
  290.         STA     $87 
  291.         PLA 
  292. L35B9   STA     $88 
  293. L35BB   LDA     $83 
  294.         JSR     L3462 
  295.         STY     $88 
  296.         CLC 
  297.         BCC     L35D9 
  298. L35C5   CLC 
  299.         JSR     L3460 
  300.         TAX 
  301.         TYA 
  302.         PHA 
  303.         TXA 
  304.         PHA 
  305.         LDY     #$02 
  306. L35D0   CLC 
  307. L35D1   LDA     ($87),Y 
  308.         TAX 
  309.         DEY 
  310.         LDA     ($87),Y 
  311.         STX     $88 
  312. L35D9   STA     $87 
  313.         BCS     L35D0 
  314.         LDA     $81 
  315.         PHA 
  316.         LDA     $80 
  317.         PHA 
  318. L35E3   JSR     L3662 
  319. L35E6   LDA     #$94 
  320.         STA     $8E 
  321.         LDA     #$00 
  322.         STA     $8F 
  323.         LDX     #$FB 
  324. L35F0   LDA     #$20 
  325.         JSR     L36C2 
  326.         LDA     L352A,X 
  327.         JSR     L36C2 
  328.         LDA     #$3D 
  329.         JSR     L36C2 
  330.         LDA     $99,X 
  331.         JSR     L36AF 
  332.         INX 
  333.         BMI     L35F0 
  334.         RTS 
  335. L3609   CLC 
  336.         LDY     #$01 
  337.         LDA     ($87),Y 
  338.         JSR     L3462 
  339.         STA     $87 
  340.         TYA 
  341.         SEC 
  342.         BCS     L35B9 
  343. L3617   JSR     L379F 
  344.         SEC 
  345.         BCS     L35BB 
  346.         NOP 
  347.         NOP 
  348.         JMP     L3617 
  349.         JMP     L3609 
  350. L3625   DB      'AXYPS' 
  351. L362A   INC     $90 
  352.         BNE     L3630 
  353.         INC     $91 
  354. L3630   LDA     $8A 
  355.         CMP     $8C 
  356.         LDA     $8B 
  357.         SBC     $8D 
  358.         INC     $8A 
  359.         BNE     L363E 
  360.         INC     $8B 
  361. L363E   RTS 
  362.         LDA     #$00 
  363.         STA     $97 
  364.         RTS 
  365.  
  366.    ***INPUT MODULE*** 
  367.  
  368. L3644   LDX     #$00 
  369.         LDA     #$05 
  370.         STA     ICCOM,X 
  371.         LDA     #$82 
  372.         STA     ICBAL,X 
  373.         LDA     #$38 
  374.         STA     ICBAH,X 
  375.         LDA     #$60 
  376.         STA     ICBLL,X 
  377.         LDA     #$00 
  378.         STA     ICBLH,X 
  379.         JSR     LE456 
  380. L3662   LDA     #$9B 
  381.         JMP     L36C2 
  382.  
  383.    ***HEX OUT MODULE*** 
  384.  
  385. L3667   LDY     $8B 
  386.         LDX     $8A 
  387. L366B   JSR     L3662 
  388.         JSR     L344C 
  389.         LDY     #$00 
  390.         LDA     #$2D 
  391.         JMP     L36C2 
  392. L3678   LDA     $8A 
  393.         ORA     #$07 
  394.